home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
bounce.zip
/
W32.DEC
< prev
next >
Wrap
Text File
|
1990-09-23
|
2KB
|
50 lines
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' These statements are in a file called W32.DEC and should be merged
' or included ( use REM $INCLUDE:'W32.DEC') with any program using the
' W32 library. Programs load slower with INCLUDE statements but are easier
' to update.
DECLARE SUB Adapter (a%) : 'returns active adapter 0\mono 1\cga 2\ega 3\vga
DECLARE SUB Border (BYVAL b%)
DECLARE SUB CloseLastW ()
DECLARE SUB CloseW (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB CloseWgra (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB ConvertTG (tr%, lc%, br%, rc%)
DECLARE SUB DebugW ()
DECLARE SUB DefBorder (x$)
DECLARE SUB Dump1 (BYVAL segment%, BYVAL offset%, BYVAL attr%, BYVAL NLines%, BYVAL Row%)
DECLARE SUB FillW (BYVAL offset%, BYVAL stringAddress%)
DECLARE SUB InitW (RR%, CC%)
DECLARE SUB Int10 (ax%, bx%, cx%, dx%)
DECLARE SUB Int3
DECLARE SUB KLS
DECLARE SUB Kolor (BYVAL fore%, BYVAL back%)
DECLARE SUB Lokate (BYVAL r%, BYVAL c%)
DECLARE SUB MapMask (BYVAL m%)
DECLARE SUB Monochrome ()
DECLARE SUB OpenW (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB Prnt (a$)
DECLARE SUB Printt (a$, BYVAL attr%, BYVAL r%, BYVAL c%)
DECLARE SUB PrntW (a$)
DECLARE SUB PrintW (a$, BYVAL attr%, BYVAL r%, BYVAL c%)
DECLARE SUB PrntS (BYVAL i!)
DECLARE SUB PrntUsingS (Mask$, BYVAL i!)
DECLARE SUB ReadScreen (a$, BYVAL r%, BYVAL c%)
DECLARE SUB Refresh ()
DECLARE SUB SaveW (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB SaveWgra (BYVAL segment%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB ScrollD (BYVAL Lines%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB ScrollL (BYVAL cols%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB ScrollR (BYVAL cols%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB scrollU (BYVAL Lines%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB SetViewPage (BYVAL p%)
DECLARE SUB SetViewW (BYVAL Page%, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB SnowCheckingOn
DECLARE SUB SnowCheckingOff
DECLARE SUB Tabb (BYVAL Col%)
DECLARE SUB WSize (Bytes&, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
DECLARE SUB WSizeGra (Bytes&, BYVAL tr%, BYVAL lc%, BYVAL br%, BYVAL rc%)
'$DYNAMIC
COMMON SHARED RR AS INTEGER, CC AS INTEGER
InitW RR,CC
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%